home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 15
/
Tiger_Disk_015_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
--->ende!<---
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
30 lines
10 poke53280,.:poke53281,.:printchr$(147):v=53248:
12 fori=832to894:readd:pokei,d:next:poke2040,13
17 poke53249,120:poke53269,1:pokev+21,255:pokev+39,. :ifz>10then 190
18 forz=0to13:printtab(6)"[199]leich"tab(28)"[203]ommt [147][145]":poke646,int(rnd(0)*15)+0
19 poke53272,22:nextz
20 :print"[215]irklich,[215]ahrhaftigund[197]ndgueltig";:
21 :print"[152] [196] [193] [211] [197][160][206][160][196][160][197][160]!":
25 forx=60to118:print"[156][169][166][158][255][129][255][255][255][223][169][223][169][156][169][223][169][223][169][223][149][223][169][223][169][223][169][169][223][169][223][169][223][129][223][169][223][169][255][255][255][150][169][255][153][166][169] [157][157]";
30 y1=120+sqr(130*x-x*x):y2=120-sqr(130*x-x*x)+.249::pokev+39,x
32 fory=y1toy2stepy1-y2:gosub90:nexty,x
34 forx=110to30step-5:y1=120-sqr(110*x-x*x):y2=120+sqr(110*x-x*x)/.2
37 fory=y1toy2stepy1-y2:gosub90:nexty,x
40 print"[147] ":print" ":print" ":print" "
45 goto17
90 poke53249,int(x):poke53248,int(y):return
150 data13,116,0,30,222,0,61,178,0,108,4,0,249,16,0,234,154,0
160 data210,8,0,105,64,128,104,135,128,48,8,0,48,36,0,32,24,0
170 data16,4,0,8,5,93,8,9,81,16,17,217,32,33,80,121,145,93
180 data214,248,0,244,244,0,207,100,0
190 ti$="000002":wait161,1:goto195
195 print"[147]> [206][160][213][160][206] [201][160][211][160][212] [215][160][201][160][210][160][203][160][204][160][201][160][195][160][200]:[146] <";
200 print" [169][169] [169][169] [169] [169] [169] [169] [169] [169][169] [169][169] [169]
201 [153]" (NULL)closeclose(NULL)close(NULL)closeclose(NULL)close(NULL)closeclose(NULL)close(NULL)closeclosecloseclose(NULL)close (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)
202 print"[156] [169] [169] [169] [169] [169] [169] [169] [169] [169] [169]
203 [153]"def (NULL)(NULL) (NULL) (NULL)(NULL)(NULL)(NULL) (NULL) (NULL) (NULL) (NULL)(NULL) (NULL)(NULL) (NULL)
204 print"[158] [169] [169] [169] [169] [169] [169] [169] [169] [169] [169]
205 [153]" (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)
206 print"[129] [169][169] [169][169] [169] [169] [169][169][169][169] [169][169] [169][169] [169][169] [169]
207 ti$[178]"000003":[146]161,1:[151]53272,21: [158]58253